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Visual Basic for Application 
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Visual Basic for Application 


E’ un linguaggio di programmazione derivato dal Visual Basic. 
L'interprete di tale linguaggio è presente in quasi tutti i prodotti 
software dell'ambiente Windows compreso il sistema operativo. 


I VBA è: 


Ul Imperativo (come C/C++, Pascal) 

Ul guidato dagli eventi (event driven) 

Ul orientato agli oggetti (object oriented) 

LI E’ interpretato (non compilato come il C++/Java etc.) 
pertanto Il codice scritto in VBA funziona solo all’interno 
dell’applicazione in cui viene utilizzato. 
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Imperativo: ovvero un programma VBA può essere inteso come una 
sequenza di comandi (istruzioni) che l'interprete del linguaggio di 
programmazione esegue. 


Un programma, sviluppato secondo il paradigma imperativo, è 

strutturato in questo modo: 

LI Una sezione dove vengono dichiarati tutti gli elementi di 
memoria (variabili) e loro tipologia (intero, reale, booleano etc.) 

LI una sezione contenente lo script che implementa l’algoritmo 
risolutivo utilizzato. 


A loro volta, le istruzioni si dividono in: 


U) istruzioni di input/output (scrittura a video, scrittura su disco, 
lettura da tastiera, ...); 

U istruzioni di assegnamento (valorizzazione di una cella di 
memoria); 

Ul istruzioni di controllo (if, while, for, foreach, 
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La programmazione imperativa viene generalmente 
contrapposta a quella dichiarativa. Secondo quest'ultimo 
paradigma un programma si limita a descrivere a cosa una certa 
entità assomiglia e non come tale entità possa essere creata. 
Le pagine web HTML sono di tipo dichiarativo, perché 
descrivono cosa la pagina contiene ma non come realizzare la 
sua visualizzazione sullo schermo del computer. In altre parole 
un programma dichiarativo consiste in un insieme di 
"affermazioni" (non "ordini"!) che la macchina virtuale del 
linguaggio è tenuta a considerare vere e/o rendere vere. Un 
esempio di paradigma dichiarativo è la programmazione logica. 


/ 


Un programma dichiarativo focalizza sulla descrizione delle 
proprietà della soluzione desiderata (il cosa), lasciando 
indeterminato l'algoritmo da usare per trovare la soluzione (il 
come). 
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Orientato agli eventi: L'attivazione di una sequenza di comandi 
avviene quando accade un evento come: 

Ul click del mouse, 

Ul pressione su un tasto, 

Ul Uscita/entrata da/in una casella di testo 

Ul Apertura di un documento 

Ud... 

Orientato agli oggetti: Un programma si compone di tante parti 
(oggetti) che possono tra loro interagire. Ogni oggetto è 
contraddistinto da: 

Ul Caratteristiche peculiari (proprietà) 

Ul Azioni che possono essere eseguite (metodi) 

Ul Ogni oggetto reagisce ad accadimenti (eventi) 

Gli oggetti sono organizzati in modo gerarchico 


application.Workbooks(1).a 
:® AcceptAllChanges A 
AccuracyVersion 
:® Activate 
ActiveChart 
ActiveSlicer 
“® AddToFavorites v 
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Interpretato: un programma interpretato necessità di un ulteriore 
programma (l'interprete appunto) per essere eseguito. 


Un interprete è un programma in grado di eseguire altri 
programmi a partire dal loro codice sorgente (scritto con un 
linguaggio ad alto livello). Interpreta la sequenza di comandi, detta 
script, ed emula l'esecuzione associata ad ogni singola istruzione 
traducendola di volta in volta in istruzioni in linguaggio macchina. 


Sorgente in VBA 


da pr a —®>>( INTERPRETE 


esecuzione 


programma 


Utilizzatore (user) 
programmatore 


Esecuzione 
Interprete 
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Ai programmi interpretati si contrappongono i programmi 
compilati. 


sorgente in C HEX file 


= => ==> COMPILATORE fe esecuzione _ 
SA e Programma in ST 


iù programma 
compilazione 


Utilizzatore (user) 
programmatore 


Un particolare programma detto compilatore trasforma il codice 
sorgente (scritto con un linguaggio ad alto livello) in codice 
macchina (assembler). Un programma compilato risulta 
mediamente più veloce rispetto al corrispondente interpretato 
poiché composto da istruzioni assembler. Ai primordi le CPU erano 
straordinariamente lente pertanto il vantaggio, in termini di 
velocità, di un programma compilato era assolutamente 
significativo e critico (secondi invece che minuti). 
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Con i PC attuali, la differenza rimane proporzionalmente la stessa 
ma in termini assoluti è praticamente inavvertibile (decimi di 
secondo invece che centesimi di secondo). 


Un programma compilato è generalmente autonomo, nel senso che 
non richiede che sia stato installato un secondo programma 
(l'interprete appunto!) per essere eseguito. Tuttavia, può richiedere 
che siano installati altri programmi o librerie necessarie per 
svolgere i propri compiti. 


i» 


Il codice compilato è praticamente incomprensibile all'uomo. Ciò si 
rivela utile quando il programma è coperto da copyright: un 
programma compilato può essere copiato illecitamente da 
chiunque, ma per analizzare le idee che il programma contiene è 
necessario un lavoro di decompilazione (molto complesso). 

E' infine molto difficile modificarlo deliberatamente per ottenere 
una diversa esecuzione del programma (ad esempio per rimuovere 
chiavi di protezione). 
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Per attivare l’ambiente di sviluppo si preme ALT-Fn-F11 cet 2016 Apple 


7 Microsoft Visual Basic, Applications Edition - Cartel1 [interruzione] - [Foglio1 (codice)] 


E File Modifica Visualizza Inserisci Formato Debug Esegui Strumenti Aggiunte Finestra ? 
E - Ud rnakS@f#%/Q 
Progetto - VBAProject 
Es e) Sub Ave () 
Dim aChi As String 


E-2É VBAProject (Carteli) aChi = "Students" 
a-E9 n Excel Oggetti 


EE End Sub 
CD Questa_cartella_di_lavoro 


AREA 
PROGETTO AREA CODICE 


Proprietà - Foglio1 
Foglio1 \Vorksheet 
Alfabetico | Per categoria | 


String Foglio1.Ave 


CONTROLLO ESPRESSIONI 
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Per attivare l’ambiente di sviluppo si preme ALT-F11 


Excel 2016 Apple 


e0°e Visual Basic Editor 
Sub Avel() 

— Dim aChi As String 

b 4: VBAProject (FUNCRES.XLAM) aChi = "Students" 


v $i VBAProject (Cartella di lavoro1) [mae D} MsgBox "AVE " & aChi, vbInformation, "SalutONE” 


V|) Oggetti Microsoft Excel 
É) ThisWorkbook 
{1 Foglio? (Foglio1) 


AREA AREA CODICE 


PROGETTO 


> 4 Solver (Solver.xlam) 


» » 0 <& © 1 


FINESTRA IMMEDIATA 
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debug.print aChi 
Students 


KI Aggiungi riferimenti... 
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OGGETTI FONDAMENTALI 


L'autocompletamento del codice VBA 
non è disponibile nell'IDE VBA di Excel 


Ul L'applicazione stessa (application) 

LI File Excel o Cartella di Lavoro (Workbook). 
Ogni file di Excel aperto è identificato con un 
oggetto workbook. Se ve ne è più di uno sono 


application. th 

ThisCell A 
ThousandsSeparator 

Top 

TransitionMenuKey 
TransitionMenuKeyAction 


2016 per Apple 


TransitionNavigKeys w 


numerati consecutivamente. Il workbook 
attivo si chiama ThisWorkbook 


application.ThisWorkbook. act 


U Ogni Workbook contiene dei fogli di lavoro 
(Worksheet). | fogli sono numerati 
consecutivamente. Il worksheet attivo viene 
indicato con il nome activesheet. 


Ul Ogni foglio (quello contenente lo script può essere 
richiamato con me) è composto da celle. Una singola 
cella può essere manipolata utilizzando l'oggetto 
Range al quale passo come argomento l’area o 
l'indirizzo della cella da manipolare (oppure Cells). 


:® Activate A 
ActiveChart 
ActiveSlicer 

“® AddToFavorites 
Application 

:® ApplyTheme 


me . r| 
n 
:® ResetAllPageBreaks 
Rows 
:® SaveAs 
“® Scenarios 
ScrollArea 
:® Select 
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Vediamo ora di creare un file Excel (EsempioVBA1.xIsm) di prova: 


Ul nella cella A1 mettiamo la parola "Ciao" 
Ul in A2 il valore 5 


Richiamiamo l’ambiente di sviluppo con la combinazione di tasti 
Alt-F11. Nell’area di progetto clicchiamo due volte sulla voce 
Foglio1 dell'elenco "Microsoft Excel Oggetti" e digitiamo nell’"Area 
Codice" le seguenti istruzioni. 


Sub primoEsempio( ) 

Range ("B1") = ThisWworkbook.Name 

Range ("B2").Value = Worksheets(1).Name 

Range ("B2").Characters.Font.Name="Arial Black" 
End Sub 
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n s Nome file: | EsempioVBA]1.xlsm Wi 
Salviamo il d 
Salva come: | Cartella di lavoro con attrazione macro di Excel (*.xlsm) wi 


Cartella di lavoro di Excel (*.xl5g 
Cartella di lavoro con attivazione macro di Excel (*.xlsm) 
Cartella di lavoro binaria di Excel (*.xlsb) 


file come: 


Autori: 
E questo per evitare di perdere lo script appena inserito 


Impossibile salvare le caratteristiche seguenti in cartelle di lavoro senza macro: 


© * Progetto VB 
Per salvare un file con queste caratteristiche, fare clic su No, quindi selezionare un tipo di file con attivazione macro nell'elenco Tipo file. 


Per continuare a salvare come cartella di lavoro senza macro, fare clic su Sì. 


Mandiamo in esecuzione premendo il tasto F5 oppure cliccando sul 


triangolino verde Db 7 MAR" 


Otteniamo: 


EsempioVBA1.xIsm 
5 Foglioi 
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Analizziamo il codice 
Range ("B1") = Thisworkbook.Name 


Questa istruzione inserisce nella cella B1 il nome della cartella di 
lavoro corrente (ThisWorkbook.Name). Name è una proprietà 
dell'oggetto ThisWorkbook 


Range ("B2").Value = Worksheets(1).Name 


inserisce nella cella B2 il nome del primo foglio di lavoro in cui è 
contenuta. Value indica la proprietà dell'oggetto Range("B2") 
corrispondente al contenuto della cella (essendo value la proprietà 
predefinita per l’oggetto range la posso omettere come è visibile 
nell'istruzione precedente). Name è una proprietà dell'oggetto 
Worksheets(1). Il numero 1 indica che si tratta del primo foglio 
della cartella di lavoro corrente. Name è una proprietà di 
Worksheet ma non si confonde con quella omonima di Workbook 
perché è preceduta dall'indicazione dell’oggetto cui si riferisce. 


La seguente istruzione mostra l'aspetto gerarchico degli oggetti 
in VBA 


Range("B2").Characters.Font.Name="Arial Black" 


L'esempio modifica il tipo di carattere. La gerarchia evidenziata è la 
seguente (partendo dall'oggetto apicale application): 


Application (excel stesso) 
Workbook 
Worksheet 


Range (ci si riferisce alle celle) me.Range ("82") .cu 
«= CheckSpelling 
“S Clear 
«® ClearComments 
= ClearContents 
«® ClearFormats 
“® ClearHyperlinks 
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Per riferirsi ad una cella possiamo usare: 


Range ("IndirizzoCella") 


oppure: 
Cells(riga, colonna) 


dove riga e colonna sono coordinate numeriche 


Sub primoEsempio( ) 
Worksheets(2).Cells(3,1)=Thisworkbook.Name 
Worksheets(2).Cells(5,1)=Worksheets(1).Range("A5").Value 
Worksheets(2).Cells(2,2)=Worksheets(1).Range("B2").Value 
Worksheets(2).Cells(2,2).Characters.Font.Name = "Arial" 

End Sub 


Si noti che la sequenza di comandi scrive dei valori in celle del 
secondo foglio, prendendo alcuni dati dal primo 


I controlli, visti precedentemente, possono essere utilizzati per 
l'interazione con l’utente. 


Ul Siseleziona il controllo REVISIONE VISUALIZZA | SVILUPPO 
desiderato, 

U losi posiziona sul foglio nella 
posizione desiderata 

I Sieffettua un doppio click 
sull'oggetto e si entra in modalità | Controlli modulo contre 
VBA il codi Egeo 

per creare il codice Aa ® Gi 

necessario a gestire il controllo. Il | controlii Activex 
codice verrà eseguito solo fuori  PEIMEEE È 


LA - @ ACE EE | RIACE 
dalla modalità progettazione E = Ò CommandButtoni 


=| Proprietà 
Or Visualizza codice 
Esegui finestra di di: 


Doppio click 


Private Sub CommandButtoni Click( ) 


End Sub 
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Inseriamo il seguente codice per il bottone dopo 
aver cambiato il suo nome in Cliccami (attributo ||[ciccami commandeutton 
Name) nella finestra delle proprietà. Alfabetico |Per categoria 


Cliccami 


Private Sub Cliccami_ Click() 
Range("A1").Value = 234 
Range("A2").Value = -234 
Range("A2").Font.Color = RGB(255, 0, 0) 

End Sub 


La funzione RGB colora il testo della cella A2 (rosso nel nostro 
esempio - Si poteva utilizzare in alternativa la costante vbRed). 
| colori si ottengono combinando i tre colori base: Rosso (Red) - 
Verde (Green) - Blu (Blue). 


La funzione RGB(Red, Green, Blue) ha come argomenti le 


quantità di ciascuno dei tre colori base (da 0 a 255). 


À 
L'esecuzione, dopo il click sul bottone, 234 


I i Cliccheggia qui 
produce il seguente risultato: 2 -234 55! 9 
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La scrittura 


Private Sub Nome() 


End Sub 


nella quale abbiamo sempre racchiuso il nostro codice rappresenta 
un esempio di procedura (Subroutine) denominata Nome. La parola 
chiave Private non è obbligatoria ed indica che questa sequenza di 
comandi può essere utilizzata solo all'interno del foglio in cui è stata 
definita. 


i 


All'interno del codice possiamo inserire dei commenti. | commenti si 
creano inserendo come primo carattere il singolo apice '. | commenti 
terminano con la fine della riga. Per commenti multilinea ogni riga 


. eo. I 
deve iniziare con ‘. Private Sub Cliccami Click() 


' Incremento di 1 il contenuto 

' della cella A1 

Range("A1") = Range("A1")+1 
End Sub 
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MSGBOX - Istruzione di Output 


Serve per mostrare una finestra messaggio e può essere scritta 
in due diverse forme: 
"> come funzione: 


MsgBox(frase, [tipofinestra], [titolo]) 


* frase: stringa con il messaggio (fra doppi apici "") 

* tipoFinestra: tipo di finestra (vedi poi; facoltativo) 

* titolo: stringa con il titolo della casella (facoltativo) 
Restituisce un valore che può essere messo in una variabile 


"> come istruzione: 
MsgBox frase, [tipofinestra], [titolo] 


Non restituisce alcun valore 


tipoFinestra può assumere diversi valori fra cui le seguenti 
costanti icona: 


UL vbCritical (16) 

LU vbQuestion (32) Pr © 
Ul vbExclamation (48) 

Ul vbInformation (64) 


E' possibile combinare, mediante un +, le costanti icona con 
quelle che definiscono il tipo di pulsanti da mostrare nella 
finestra. 


MsgBox("Basta VBA ?", _ 
vbQuestion + vbYesNo, _ 


Ul vbYesNo (4) lai 
UL] vbOKCancel (1) 3 

LI vbYesNoCancel (3) 

LU vbOKOnly (0) 

U vbRetryCancel (5) Tali costanti in realtà 
Ul vbAbortRetryIgnore (2) sono dei numeri. 
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Ricordarsi che quando si salta un valore nella lista dei parametri 
va comunque messa la virgola. 


MsgBox(frase,, titolo) 
MsgBox frase,, titolo 


NB: Nella descrizione di una funzione usiamo le parentesi 
quadre per indicare che un argomento è opzionale 


Proviamo ora a studiare il comportamento del seguente codice 
sostituendo i diversi valori per tipoFinestra (osservare come 
varia anche il valore restituito): 


Sub interazione ( ) 
ris = MsgBox("Ciao!",vbyesno , "prova") 
Range("A1") = ris 
MsgBox "Bye!", vbCritical, "prova" 
Range("A1") = ULI] 
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INPUTBOX - Istruzione di input 


Serve per richiedere dei dati all'utente. 

E' una funzione che restituisce la stringa | cometi chiami? 
digitata all'interno della casella di testo 

che appare nella finestra di dialogo 

associata al comando. 


La sua sintassi è la seguente: 
InputBox(testo, [titolo], [default], [xp], [yp]) 


Dove: 
testo: frase che spiega quello che si vuole 
titolo: intitolazione casella (facoltativo) 
default: stringa predefinita all'interno del textbox (sarà il valore 
restituito in caso di nessuna digitazione). E' facoltativo. 
Xp, yb: posizione della finestra sul video rispetto all'angolo 
superiore sinistro dello schermo. Sono facoltativi. 


Vediamo di provare ad eseguire il seguente esempio con i diversi 
valori: 


Sub interazione () 
ris = InputBox("Chi sei ?", "Richiesta", "") 
Range("A1") = "sei " & ris 

End Sub 


A 
1 (sei Marco © 


Il VBA non è case sensitive (case sensitiveness) 


b 
Le sub non sono altro che dei sottoprogrammi Ù | 
che possiamo attivare sfruttando gli eventi 
associati agli oggetti (fogli, cartelle, celle, 
controlli, etc...). Le sub possono accettare dei 
parametri ma non restituiscono mai alcun valore! 
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TIPI DI DATO 


Il tipo di dato consente di specificare: 


Ul come devono essere codificate le informazioni 
Ul quali siano le operazioni ammissibili sui dati 
Ul quale relazione d'ordine applicare 


Byte 0... 255 

Boolean True False 

Integer -32./68 ... 32.707 

Long -2.14/.483.648 ... 2.14/7.483.647 

Single 4 byte 

Double 8 byte 

Currency -/+922.337.203.685.477,5808 

Date 01/01/100 ... 31/12/9999 

String sequenza di caratteri lunga da 0 ... 2?! caratteri 
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RUAnCon non viene FIGHI SFaro il -UPO si assume 098 sia Variant. 


VARIABILI 


Una variabile è una zona di memoria atta a contenere dei valori 
Ad ogni variabile è associato un tipo (se non dichiarato è 
Variant). Le variabili si dichiarano in questo modo: 


Dim nomeVariabile As tipoDiDato 


18 
DIM ETA AS BYTE 


ETA ETA=18 


NB: di default in VBA le variabili possono essere anche non dichiarate 
prima del loro utilizzo (in altri linguaggi no.). Questo perché si tratta di 
un linguaggio interpretato. Il tipo assegnato a tali variabili dipende dal 
tipo del primo valore assegnato. Inserendo l'opzione Option 
Explicit all’inizio del modulo al di fuori di tutte le routine si 
obbliga il PI REISIHIMANOIE a dichiarare tutte le variabili utilizzate 
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COSTANTI 


Sono elementi a cui viene assegnato un valore che non può essere 
modificato. Le costanti si dichiarano in questo modo: 


Const nomeVariabile As tipoDiDato = valore 


In VBA esistono anche delle costanti predefinite riconoscibili per il 
prefisso vb (esempio vbRed). 


ESPRESSIONI 


Un’espressione è un insieme ordinato di variabili ed operatori. 
Ogni espressione ha: 


Ul un valore rappresentato dal risultato dell'espressione 
Ul un tipo determinato dalle variabili e dagli operatori 


La forma generale di un'espressione è la seguente: 
risultato = operando1 Operatore operando2 


L’operando (o termine) può essere a sua volta un'espressione. 
Gli operatori sono dei simboli che rappresentano il tipo di 
operazione da applicare. 

Ogni tipo di dato possiede un insieme di operatori che si 
possono applicare su di esso. 


Gli operatori in VBA possono essere 


Ul Unari: si applicano solo ad un termine (-5) 
Ul Binari: si applicano su due termini (X + 6) 
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OPERATORI (in ordine di precedenza) 


cl elevamento a potenza 
- negazione (operatore ad 1 operando) 
uff | prodotto e divisione decimale 
\ divisione intera (operandi decimali arrotondati) 
mod resto divisione (operandi decimali arrotondati) 
+- addizione e sottrazione 
& concatenazione di stringhe 
=<>>>=<<= ls 
operatori confronto 
NOT negazione logica 
AND and logico ee, | 
OR or, xor logico 
implicazione logica 


A parità di precedenza si parte valutando da sinistra a destra. 
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La lettura dei dati restituisce un valore il cui tipo dipende dalla 
funzione utilizzata. Ad esempio la lettura con InputBox restituisce un 
tipo String. 


Esistono delle funzioni specifiche per convertire un’espressione in 
uno dei tipi previsti dal VBA. In caso la conversione sia impossibile 
viene generato un errore. 


CBool(espr) converte in Boolean 

CByte(espr) converte in Byte Pra 
CDate(espr) converte in Date | 

CDbl(espr) converte in Double | HA a lei 
Cint(espr) converte in Int Nn) 


v2 = InputBox("Punti:") 
CLng(espr) converte in Long v= vi + v2 

: . | MsgBox "punteggio totale: " & v 
CSng(espr) converte in Single End Sub 
CStr(espr) converte in String 


CVar(espr) converte in Variant 
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Le funzioni di test permettono di evitare errori di conversione: 
IsNumeric(espr)*d che restituisce True se espr è compatibile 
con un numero (decimale o intero) 

Isbate(espr)dche restituisce True se espr è compatibile con 
un formato data 

IsNull(espr)dche restituisce vero se l’espressione restituisce 
un valore nullo 

IsObject(espr)dche restituisce vero se il suo argomento è 
un oggetto 


In VBA il Vero (T:true) ha come rappresentazione interna -1 
mentre il falso (F:False) lo zero. 


X b4 


Ecco le tavole della verità T T 

degli operatori logici T F F 

presenti in VBA FT T 
F F i i 


Imp Y= NOT X OR Y 
X XOR Y = (X AND NOT Y) OR (NOT X AND Y) 
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ISTRUZIONI DI FLUSSO 


Nei linguaggi di programmazione imperativi (come VBA, C, 
Pascal) l'ordine di esecuzione è strettamente sequenziale. 


Molto spesso questo modo di eseguire i programmi non è adatto 
per gestire tutte le necessità. Esistono dei modi per variare questo 
ordine: 


LI Istruzioni condizionali 

Ul Istruzioni cicliche 

Ul Richiamo di sottoprogrammi/funzioni 

LI Esiste anche un quarto modo il cui uso è fortemente 
sconsigliato: le istruzioni di salto (Goto) 
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ISTRUZIONI CONDIZIONALI 


Ogni linguaggio di programmazione possiede un'istruzione che 
permette di scegliere fra due strade in base ad una condizione. 
L'istruzione VBA è: 


If condizione Then 

istruzioni quando la condizione 
Else 

istruzioni quando la condizione 
End If 


se la condizione DE izi 
condizione 6 la condizione 


codice eseguito codice eseguito Flow Chart della versione 


se la condizione se la condizione 


do IF ELSE ENDIF 
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La seconda parte (ramo Else) è facoltativa, non è facoltativa 
l'istruzione End If. 


If condizione Then 
istruzioni quando la condizione è vera 
End If 


ci se la condizione 
condizione 


Flow Chart della versione 
ridotta IF ENDIF 


codice eseguito 
se la condizione 
è vera 


se la condizione 


© 
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I costrutti IF possono essere annidati tra loro (messi uno dentro 
l'altro): 


se la condizione A è falsa se la condizione A è vera 


condizione 


blocco Af 
codice eseguito se la condizione B è falsa e@rEERIA, se |a condizione B è vera 
se la condizione 
A è falsa 
blocco AvBv 
codice eseguito 


se la condizione C è falsa i se la condizione C è vera se la condizione 
condizione B è vera 


se la condizione D se la condizioneD 


blocco AvBfCf - condizione 
codice eseguito 
se la condizione AvBfCvDf bloccoW AvBfCvDv 
è falsa codice eseguito codice eseguito 
se la condizione se la condizione 
è falsa è vera 
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Nella forma più generale l'istruzione condizionale diventa: 


If condizioneA Then 
istrUuzioniA 

ElseIf condizioneB Then 
istruzioniB 

ElseIf condizioneC Then 
istruzionic 


Else 
istruzioniElse 
End If 


L'else finale potrebbe non esserci. 
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condizione la condizione 1 


se la condizione 1 
è falsa 


Fondizione la condizione 2 


se la condizione 2 
è falsa 


condizione È la condizione N 


se la condizione N 


blocchi di codice 


codice 1 eseguito 
se la condizione 1 
è vera 


codice 2 eseguito 
se la condizione 2 
è vera 


codice N eseguito 
se la condizione N 
è vera 


condizione C@ la condizione 1 


se la condizione 1 
è falsa 


tomdizione I la condizione 2 


se la condizione 2 
è falsa 


Fondizione la condizione N 


blocchi di codice 


codice 1 eseguito 
se la condizione 1 
è vera 


codice 2 eseguito 
se la condizione 2 
è vera 


codice N eseguito 
se la condizione N 
è vera 


è falsa i 
codice eseguito se 


nessuna delle 
condizioni è vera 


Else finale potrebbe non esserci 


Esempio 1: Sub che segnala se il valore della cella A1 è 
positivo scrivendo un opportuno messaggio nella cella A2. 


Private Sub VerificaSegno_Click( ) 
If Range("A1") > © Then 
Range("A2") = "Positivo" 
Else 
Range("A2") = "Non positivo" 
End If 
End Sub 


neria Gestionale 


por: 


__| 
Esempio 2: Il codice, attivato con un bottone, calcola quoziente e 
resto della divisione fra il contenuto di A1 e B1. 

Se B1 vale 0 scrive un messaggio di errore in C1 


Ingeg 


rea: 


Private Sub Divisione_Click( ) 
If Range("B1") = © Then 
Range("C1") = "Impossibile" 
Else 
Range("C1") = Range("A1") / Range("B1") 
Range("D1") = Range("A1") Mod Range("B1") 
End If 
End Sub 
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Esempio 3: Il codice che segue presume che nelle celle A5, B5 
e C5 ci siano i coefficienti a, b e c di una equazione di secondo 
grado. In DS viene scritto il numero e il tipo di radici 
dell'equazione 


Private Sub Eq2Grado_Click() 
Delta = Range("B5")/12-4*Range("A5")*Range("C5") 
If Delta > 0 Then 
Range("D5") = "2 radici reali" 
Else 
If Delta = 0 Then 
Range("D5") = "radici reali coincidenti" 
Else 
Range("D5") = "coniugate complesse" 
End If 
End If 
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DUn' istruzione analoga all’ IF ELSEIF ELSE ENDIF è il SELECT 


le parti Case successive alla prima e il CaseElse sono facoltative. 
Ci possono essere più rami Case ma di CaseElse ve ne può” 
essere uno. solo. L'istruzione SELECT valuta una sos) volta 
l'espressione e. confronta il risultato con ogni. i 
espressioneConfranto fino a trovare la Pla per la quale è vera 


Select Casè. &spressiofie” 
Case espressi6neConfrontoA 
Istruzibnia 
Case cem =: Reonfrontor 
“istruzioniB. 
casé. li spressionecorNigtoc 
i istruzioniC @ 


Case Else 
istruzioniElse 
End Select 
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— L'istruzione sottesa al primo Case che restituisce vero 
(relativamente all'espressioneConfronto) verrà eseguita: 
Successivamente l'esecuzione continua con l' istruzioie che segue 
l'End Select, AL 
Il ramo Case Eisò si utilizza per dare un risultato Erano nessuna 
delle condizioni precèdenti si è verificata. î 


Sostituisce solo parzialmènte IF ELSEIF ELSE ENDIF in quanto 
espressione è valutata solo u una: volta. 


L ‘espressione Confronto: può essere: 


U Un solo valore \déase 12) a 

U Più valori separati dalla virgola (case Ss è d 
Un intervallo di valori(case 1 to 10) 

U IS opératoreConfronto valore (Is >I0) 


Gli operatori di confronto sono: >, <, >=, <=, =, <> 
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Select Case X 
Case Is < 0 
Esempio SELECT liti “negativo” 


e Fa confronto: Case 0 Vi ell 
risposta "zERdI dl 
Case 1, 2, 3, Agf Di 6, 7, 
risposta. af cifra" 
Case 10 To ‘997 
rispésta "due cifre" 
Caseg Elsé 


Li ‘risposta "più di 2 cifre" 
End. Select 


If Not IsNumeric (X) Then È 
risposta = "non è uf numero" 
ElseIf X< 0 Then 2°. sl 
risposta = "negativo" 
ElseIf X <= 9. Thefi 
risposta =. “una cifra" 
ElseIf X-< 100 Then 
risposta = "due cifre" 
Elsé 
dl risposta = "più di 2 cifre" 
End anni 
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- l'esempio con Select non corrisponde esattamente all’ seriali 
analogo fatto con l'istruzione IF infatti il primo ramo dell’ ME 


DE Not IsNumeric (par) Then ; 
messaggi = "non è un numero“ 


non può esserè reso, con un singolo Select Case perché usa una 
espressione condizionale diversa da diversa da quellé usata negli altri rami. 


YiÎ Not IsNumefi IsNumefic(par) Then 
Bea messaggi =""non è un numero" 
. Bla do 
Volendo realizzare Sit «n Da 
uno SCrIpt Le “case, Iù. 0 
equivalente occorre °_° > "lisci 
L Case 0 _ 
usare un IF con il messaggi, = "ZERO" 
ide RDS: 
Select Case insérito: sù 9 
messaggi = "una cifra" 
inun ramo det Case 10 To 99 _ 
messaggi = "due SA 
costrutto” Gi » 
coridizionale IF. messaggi = "più di due ‘vifte” 
si End Select e» 
End If 
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Esempio À 


Analizzare il primo file di esempio contenuto nella sezione "VBA1 - 


File di supporto" a_| 8 |ce | o | E | F_| 6 | e 
COSTRUTTO IF - VBA1 


Esempi introduttivi 


Esempio 1) - IsNumeric 


Determino il segno del valore nella cella a fianco | [8 (II 


Esempio 2) Operatore MOD 


Determino se il numero nella cella a fianco è pari | 
16 


17 \Esempio 3) 


Determino se il numero A è multiplo di B | 


Esempio 4) 
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Esempio B e 


Scrivere un programma VBA che consenta le gestione della 
fatturazione, partendo dal modello di fattura visto nell'esercitazione 
4. || programma deve limitarsi alla semplice replica del modello e 
alla sua numerazione progressiva. 


STUDI DI BRESCIA 


AGGIUNGI NUOVA 
FATTURA VUOTA 


Pannello Fattura-001 Fattura-002 Pannello Fattura-001 Fattura-002 Fattura-003 


E OCCULTA/MOSTRA FOGLI MASTER 
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Esempio B 


La soluzione è la seguente 


et wsModello = Worksheets("ModelloFattura") 
NomeUltimoFoglio = Worksheets(Worksheets.Count) . Name 
If Left(NomeUltimoFoglio, Len("Fattura")) = "Fattura" Then 

' Esiste una fattura 

NrNuovaFattura = CLng(Right(NomeUltimoFoglio, 3)) +1 
Else 

' Non esiste una fattura 

NrNuovaFattura = 1 
End If 
NomeNuovoFoglio = "Fattura-" & Format(NrNuovaFattura, "000" ) 
Application.ScreenUpdating = False 
tatoVis = wsModello.Visible 
sModello.Visible = xlSheetVisible 
sModello.Copy , Worksheets(Worksheets.Count) 
orksheets(Worksheets.Count).Name = NomeNuovoFoglio 
sModello.Visible = StatoVis 
Application.ScreenUpdating = True 
' aggiorno le info 
orksheets(Worksheets.Count).Range("K13") = Date 
orksheets(Worksheets.Count).Range("K4") = _ 

"'" & NrNuovaFattura & "/" & Year(Date) 
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